home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 43
- Top = 108
- Width = 527
- Height = 363
- Caption = 'Scrolling Message In a TMultiImage Example'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 14
- object BitBtn1: TBitBtn
- Left = 8
- Top = 72
- Width = 129
- Height = 33
- Caption = 'Load mesage'
- TabOrder = 0
- OnClick = BitBtn1Click
- Style = bsNew
- end
- object BitBtn2: TBitBtn
- Left = 8
- Top = 248
- Width = 129
- Height = 33
- Caption = 'Create New Message'
- TabOrder = 1
- OnClick = BitBtn2Click
- Style = bsNew
- end
- object BitBtn3: TBitBtn
- Left = 8
- Top = 204
- Width = 129
- Height = 33
- Caption = 'On the Fly'
- TabOrder = 2
- OnClick = BitBtn3Click
- Style = bsNew
- end
- object BitBtn4: TBitBtn
- Left = 8
- Top = 161
- Width = 129
- Height = 33
- Caption = 'Save Current Message'
- TabOrder = 3
- OnClick = BitBtn4Click
- Style = bsNew
- end
- object MultiImage1: TMultiImage
- Left = 5
- Top = 8
- Width = 508
- Height = 50
- JPegDither = 4
- JPegResolution = 8
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- ImageName = 'file not found'
- Stretch = True
- end
- object BitBtn5: TBitBtn
- Left = 8
- Top = 292
- Width = 129
- Height = 35
- Caption = 'Dispose'
- TabOrder = 5
- OnClick = BitBtn5Click
- Style = bsNew
- end
- object MultiImage2: TMultiImage
- Left = 152
- Top = 297
- Width = 361
- Height = 26
- Center = True
- JPegDither = 4
- JPegResolution = 8
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- ImageName = 'file not found'
- end
- object BitBtn6: TBitBtn
- Left = 8
- Top = 115
- Width = 129
- Height = 35
- Caption = 'Load Image >>'
- TabOrder = 7
- OnClick = BitBtn6Click
- Layout = blGlyphRight
- Style = bsNew
- end
- object MultiImage3: TMultiImage
- Left = 176
- Top = 72
- Width = 321
- Height = 209
- Center = True
- JPegDither = 4
- JPegResolution = 8
- JPegSaveQuality = 25
- JPegSaveSmooth = 0
- ImageName = 'file not found'
- end
- object ScrollBar1: TScrollBar
- Left = 153
- Top = 324
- Width = 360
- Height = 11
- Max = 10
- Position = 5
- TabOrder = 9
- OnChange = ScrollBar1Change
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'scm'
- Filter = '*.scm|*.scm'
- Options = [ofOverwritePrompt]
- Left = 376
- Top = 8
- end
- object OpenDialog1: TOpenDialog
- Filter = 'scroll message|*.scm|gif|*.gif|jpg|*.jpg|bmp|*.bmp|ico|*.ico'
- Left = 352
- Top = 8
- end
- end
-